home *** CD-ROM | disk | FTP | other *** search
/ USGS: Oil & Gas Fields of the Former Soviet Union / USGS Oil & Gas Fields of the Former Soviet Union.iso / pc / fsu / text / mac / plot_map.e00 < prev    next >
Encoding:
ESRI Arc/Info Export  |  1998-10-15  |  11.4 KB  |  387 lines
  1. EXP  0 /ACCOUNTS2/FPERSITS/RUS_GEO/TEXT_UX/PLOT_MAP.E00                         
  2. ASC  2
  3. /* This aml was created by F. Persits (U.S.G.S.) on 3/27/98
  4. /* It is designed to plot a geological map of the former Soviet Union
  5. /* for the worldwide hydrocarbon resource assessment.
  6. /* It also draws Petroconsultants' Oil/Gas fields centerpoints and
  7. /* USGS Geological Province Map. The map is intended
  8. /* for use at a scale of 1:7,500,000.
  9. /* The order of the commands in this aml works and all of the
  10. /* commands and sub-amls work as intended.
  11. /* Base aml-file was designed by Craig Wandrey (U.S.G.S.),
  12. /* then was corrected after revision by Central Publication map on 6/02/97.
  13. /* ---------------------
  14. /* Intended to use in ARCINFO 7.1.2
  15. /*--------------------------------
  16. /*--Draws Russian geologic map in Equidistant projection,
  17. /*--USGS geologic provinces and oil/gas fields centerpoints.
  18. /*--------------------------------
  19. &severity &warning &ignore
  20. &severity &error &routine err
  21. /*------------------------
  22. &if [exists rus_all.hp2 -file] &then &sys \rm rus_all.hp2
  23. &if [exists rus_all.gra -file] &then &sys \rm rus_all.gra
  24. &if [exists rus_all.ai -file] &then &sys \rm rus_all.ai
  25. &if [exists rus_all.rtl -file] &then &sys \rm rus_all.rtl
  26. /* -----------Check if all the files exists
  27. &if not [exists arc_covr/geo1 -cover] &then &goto 2
  28. &if not [exists arc_covr/llf1 -cover] &then &goto 2
  29. &if not [exists arc_covr/prov1 -cover] &then &goto 2
  30. &if not [exists arc_covr/pol1 -cover] &then &goto 2
  31. &if not [exists arc_covr/ocean -annotations] &then &goto 2
  32. &if not [exists arc_covr/fld1 -cover] &then &goto 2
  33. &if not [exists arc_covr/llf1 -annotations] &then &goto 2
  34. &if not [exists arc_covr/city1 -cover] &then &goto 2
  35. &if not [exists arc_covr/outline -cover] &then &goto 2
  36. &if not [exists arc_covr/rus_wep.lut -info] &then &goto 2
  37. &if not [exists arc_covr/index.lut -info] &then &goto 2
  38. &if not [exists text/prov.txt -file] &then &goto 2
  39. &if not [exists text/offile.txt -file] &then &goto 2
  40. &if not [exists text/proj.txt -file] &then &goto 2
  41. &if not [exists text/usgs.txt -file] &then &goto 2
  42. &if not [exists text/dsclaim.txt -file] &then &goto 2
  43. &if not [exists text/source.txt -file] &then &goto 2
  44. &if not [exists text/pol.txt -file] &then &goto 2
  45. &if not [exists text/prov.key -file] &then &goto 2
  46. &if not [exists text/con.key -file] &then &goto 2
  47. &if not [exists text/polit.key -file] &then &goto 2
  48. &if not [exists text/geo.key -file] &then &goto 2
  49. &if not [exists text/mapbar.aml -file] &then &goto 2
  50. &if not [exists text/oilgas.key -file] &then &goto 2
  51. &if not [exists text/fnt034 -file] &then &goto 2
  52. &if not [exists text/rus.shd -file] &then &goto 2
  53. &if not [exists plot/index.gra -file] &then &goto 2
  54. ap
  55. display 1040
  56. /* display 9999 3
  57. rus_all.gra
  58. &echo &on
  59. mapunits meters
  60. mapscale 7500000
  61. pagesize 68.0 36.0
  62. mapposition ll 1.0 4.5
  63. /*-------------Draw small index map on very left top corner----
  64. mape arc_covr/geo1
  65. plot plot/index.gra 4.8 30.3
  66. /*-------------------Start main map drawing------------------------
  67. lineset plotter.lin
  68. linesize 0.03
  69. /* box 0.25 0.25 37.4 33.0
  70. /* box 0.1 0.1 54.0 36.0
  71. /*------------------- Geology polygons shading----------------------
  72. shadeset text/rus.shd
  73. polygonshades arc_covr/geo1 glg arc_covr/rus_wep.lut
  74. /*----------------------------------------------------
  75. /*        ------ List of Province names and codes----
  76. textdelete all
  77. textset font.txt
  78. textsymbol 18
  79. textsize 0.12
  80. move 48.7 32.8
  81. textstyle typeset
  82. textfile text/prov.txt
  83. textstyle simple
  84. /*----------------- draw oilgas fields---------------------
  85. /* To draw Centerpoints of Oil/Gas field you need to apply
  86. /* to Petroconsultant Int. data Corp.
  87. markerset oilgas.mrk
  88. markersize 2
  89. markerscale 0.2
  90. reselect arc_covr/fld1 points fie_type cn 'Oil ' or fie_type cn 'Oil and gas' ~
  91. or fie_type cn 'Oil, gas and cond'
  92. pointmarkers arc_covr/fld1 102
  93. clearselect
  94. reselect arc_covr/fld1 points fie_type cn 'Gas ' or fie_type cn 'Gas and oil' ~
  95. or fie_type cn 'Gas and condensate' or fie_type cn 'Gas, cond and oil'
  96. pointmarkers arc_covr/fld1 208
  97. markerscale 1
  98. clearselect
  99. /*------------------ draw outlines of polygons-------------
  100. lineset plotter.lin
  101. linesize 0.015
  102. linesymbol 1
  103. /* reselect arc_covr/geo1 polys area ge 1000000000
  104. polygons arc_covr/geo1
  105. clearselect
  106. /*------------------ draw thicker lines for SEA and Water----
  107. reselect arc_covr/geo1 polys glg cn 'SEA' or glg cn 'H2O'
  108. lineset carto.lin
  109. linesymbol 402
  110. linesize 0.015
  111. polygons arc_covr/geo1
  112. clearselect
  113. /*---------------------------------------------------------
  114. /*---------------------------------------------------------
  115. /*---------------------- text and text files
  116. /*----------------------------------------------------------
  117. textdelete all
  118. textset font.txt
  119. /* textset plotter.txt
  120. /* textsize 0.55
  121. textsize 24 pt
  122. textquality kern
  123. textfont 93715
  124. textcolor 1
  125. /* move 3.9 29.4
  126. move  23.8 4.1
  127. text 'MAP SHOWING GEOLOGY, OIL AND GAS FIELDS ~
  128. AND GEOLOGIC PROVINCES\                        ~
  129.              OF THE FORMER SOVIET UNION'
  130. /* move 5.2 28.5
  131. move 26.75 3.25
  132. textsize 18 pt
  133. text 'by F. M. Persits, G. F. Ulmishek, D. W. Steinshouer'
  134. /*-----------------------text files-------------------------
  135. /*
  136. textset font.txt
  137. textsymbol 18
  138. textquality kern
  139. /* textfont 93713
  140. textsize 0.15
  141. move 4.2 6.0
  142. textstyle typeset
  143. textfile text/proj.txt
  144. /*--------------------------------
  145. textstyle simple
  146. textset font.txt
  147. textsymbol 3
  148. textquality kern
  149. textsize 12 pt
  150. move 3.5 34.7
  151. textfile text/usgs.txt
  152. /*--------------------------------
  153. textset font.txt
  154. textsymbol 18
  155. textquality kern
  156. textsize 0.12
  157. move 43.6 14.15
  158. textstyle typeset
  159. textfile text/source.txt
  160. /*---------------------------------
  161. textset font.txt
  162. textsymbol 18
  163. textquality kern
  164. textsize 0.12
  165. move 43.6 9.1
  166. textstyle typeset
  167. textfile text/refer.txt
  168. /*---------------------------------
  169. move 43.6 5.5
  170. textstyle typeset
  171. textfile text/esri.txt
  172. /*---------------------------------
  173. textset font.txt
  174. textsymbol 3
  175. textquality kern
  176. textsize 12 pt
  177. move 48.3 35.4
  178. textfile text/offile.txt
  179. /*---------------------------------
  180. textsymbol 18
  181. textsize 10 pt
  182. move 48.3 34.9
  183. textfile text/dsclaim.txt
  184. /*----------------------------------------------------------
  185. textset font.txt
  186. textsymbol 18
  187. textquality kern
  188. textsize .15
  189. move 30.475 10.9
  190. text 'LIST OF MAP UNITS'
  191. /*----------------------------------------------------------
  192. textsize .17
  193. move 30.5 11.25
  194. text 'EXPLANATION'
  195. /*------------------------------legend for geology and other features
  196. lineset plotter.lin
  197. linesymbol 1
  198. textsize .15
  199. textfont 93713
  200. /* key shades from age sorted file rus_geo.key
  201. keyarea 22.8 7.04 43.0 10.7
  202. /* keyarea 22.0 7.54 42.0 7.2
  203. keyseparation .15 .15
  204. keybox .55 .25
  205. /* shadescale 2
  206. keyshade text/geo.key
  207. /*-----------------------------draw text/mapbar and scale
  208. textsymbol 1
  209. textquality kern
  210. textsize 8 pt
  211. /* &r text/mapbar 5.5 27.35  7500000
  212. &r text/mapbar 27.3 5.8 7500000
  213. /*------------------------------ draw longitude-latitude grid
  214. lineset plotter.lin
  215. linesymbol 1
  216. linesize 0.0001
  217. textset font.txt
  218. textfont 19
  219. textsize 12 pt
  220. annotext arc_covr/llf1
  221. /* since DENSIFUARC has failed to run on fishnet, I used straight lines
  222. arcs arc_covr/llf1
  223. /* -----------------------------draw outlines of provinces-----------
  224. textstyle simple
  225. lineset plotter.lin
  226. linesize 0.04
  227. linesymbol 10
  228. polygons arc_covr/prov1
  229. /*------------------------------legend for province outlines---------
  230. textsize .15
  231. textfont 93713
  232. /* textquality kern
  233. lineset plotter.lin
  234. linescale 1
  235. keyposition 36.42 10.25
  236. keyline text/prov.key nobox
  237. /*------------------legend for geological contact
  238. lineset plotter.lin
  239. linesize 0.015
  240. linesymbol 1
  241. keyposition 36.42 8.41
  242. keyline text/con.key nobox
  243. /*------------------------------ draw country boundaries
  244. lineset plotter.lin
  245. linesymbol 93
  246. linesize 0.005
  247. arcs arc_covr/pol1
  248. clearselect
  249. /*------------------------------legend for country boundaries
  250. textsize .15
  251. textfont 93713
  252. lineset plotter.lin
  253. keyposition 36.42 7.9
  254. keyline text/polit.key nobox
  255. /*------------------------------legend for oil/gas fields marker
  256. markerset oilgas.mrk
  257. markersize 2
  258. markerscale 0.2
  259. keyarea 21.9 3.2 40.3 10.8
  260. keyposition 36.42 9.35
  261. keymarker text/oilgas.key nobox
  262. /*------------------------------Legend for Major cities-----
  263. markerset plotter.mrk
  264. markersize 0.1
  265. markerscale 1.0
  266. keyposition 36.42 7.4
  267. keymarker text/city.key nobox
  268. /*------------------------------legend for Province Code text
  269. move 37.13 9.6
  270. text 'Geologic province code'
  271. textset font.txt
  272. textsymbol 10
  273. textset carto.txt
  274. textsymbol 231
  275. textsize 0.12
  276. move 36.58 9.6
  277. text '7203'
  278. /*
  279. /*--------------------------draw Ocean names--------------------------
  280. textset plotter.txt
  281. textsymbol 24
  282. annotext arc_covr/ocean
  283. /*--------------------------draw Province Codes--------------
  284. textdelete all
  285. textset carto.txt
  286. textsymbol 231
  287. textsize 0.15
  288. labeltext arc_covr/prov1 code
  289. /*
  290. clearselect
  291. /*---------------------------------------------------------------------
  292. /*------- Selecting polygon label size as a function of AREA value-----
  293. /*---------------------------------------------------------------------
  294. textset plotter.txt
  295. textsymbol 1
  296. textcolor 1
  297. textsize 5 pt
  298. reselect arc_covr/geo1 polys area ge 2000000000 and glg nc 'SEA' and glg nc 'oth
  299. labeltext arc_covr/geo1 glg
  300. /*------------
  301. clearselect
  302. textsize 4 pt
  303. reselect arc_covr/geo1 polys area lt 2000000000 and area ge 750000000 and glg nc
  304. labeltext arc_covr/geo1 glg
  305. /*-----------
  306. clearselect
  307. textsize 3 pt
  308. reselect arc_covr/geo1 polys area lt 750000000 and area ge 10000000 and glg nc '
  309. labeltext arc_covr/geo1 glg
  310. clearselect
  311. /*------------------Drawing cities-------------------------
  312. markerset plotter.mrk
  313. markersize 0.1
  314. markerscale 1.0
  315. /* pointmarkers arc_covr/city1 45
  316. textset font.txt
  317. textfont 93726
  318. textsize 0.15
  319. textcolor cmyk 0 2 2 0
  320. textquality tightkern
  321. markercolor cmyk 0 2 2 0
  322. reselect arc_covr/city1 points name nc 'Qiqihar' and name~
  323.  nc 'Harbin' and name nc 'Mashhad' and name nc 'Tehran' and name nc~
  324.  'Tabriz' and name nc 'Erzurum' and name nc 'Krakov' and name nc~
  325.  'Brno' and name nc 'Warsaw' and name nc 'Lodz' and name nc 'Wroclaw'~
  326.  and name nc 'Almaty' and name nc 'Tallin'
  327. pointmarkers arc_covr/city1 45
  328. pointtext arc_covr/city1 name
  329. /* --- change color for areas outsite of FSU boundaries
  330. textcolor cmyk 82 69 69 0
  331. markercolor cmyk 82 69 69 0
  332. nselect arc_covr/city1 points
  333. /* textsymbol 14
  334. pointmarkers arc_covr/city1 45
  335. pointtext arc_covr/city1 name
  336. clearselect
  337. /*---------------------------Draw patch in lower left corver---
  338. linesymbol 1
  339. shadeset text/rus.shd
  340. shadesymbol 70
  341. patch 3.23 6.74 8.23 11.8 outline
  342. /*--------------------------Introduction text---------------
  343. textdelete all
  344. /* textset font.txt
  345. /* textsymbol 18
  346. textfont 92506
  347. textsize .12
  348. textcolor 1
  349. move 3.4 11.57
  350. textquality kern
  351. textstyle typeset
  352. textfile text/intro.txt
  353. textstyle simple
  354. /*------------------------------draw map outline in black------------
  355. linesize 0.04
  356. linesymbol 9
  357. arcs arc_covr/outline
  358. /*----------------------------------------------------------
  359. end
  360. &echo &off
  361. rotateplot rus_all.gra rus_allr.gra
  362. rtl rus_allr.gra rus_all.rtl 650c # opaque
  363. lp -d cert650_2835 rus_all.rtl
  364. illustrator rus_allr.gra rus_all.ai
  365. postscript rus_allr.gra rus_pos.eps 0
  366. &sys rm rus_allr.gra
  367. /*   hpgl2 rus_all.gra rus_all.hp2 # # # # # # # # # PS 0 0 70 36
  368. /*   postscript rus_all.gra rus_all.eps
  369. /*   rtl rus_all.gra rus_all.rtl 650c # # # # # # # # 0 0 70 36
  370. /*   lp -d certencad rus_all.hp2
  371. /*   lp -d cert650_gis rus_all.hp2
  372. q
  373. q
  374. /*--------------------------------------------
  375. &routine err
  376. &label 2
  377. &type An error has occured in aml
  378. &type It is likely one(many?) files don't exist
  379. &type or any other error.
  380. &workspace arc_covr
  381. q
  382. q
  383. &severity &error &fail
  384. &return &error Terminating program... Start it again.
  385. EOA
  386. EOS
  387.